www.gusucode.com > 婚庆仪礼策划公司网站系统源代码 梦紫色 > 婚庆仪礼策划公司网站系统源代码 梦紫色/Admin/admin_book.asp

    <% 
'##############################################
'#	  版权所有：武汉源道科技有限公司    	  #
'#	  源道科技-小型企业内容管理版(EVS)V2.0	  #
'#    源道科技 http://www.yondoor.com         #
'#                                            #
'#	  电子邮件 sadamu5431@163.com     		  #
'#	  QQ:277197621                            #
'#	  开发人：杨立                            #
'#                                            #
'##############################################
 %>
<!--#include file="conn.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="check1.asp"-->
<!--#include file="inc/book_body.asp"-->
<title>留言管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim founderr,errmsg
founderr=false
errmsg=""

if session("admin_flag")<>"into" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='login.asp' target='_parent' >重新登录</a>！"
  Call diserror()
  response.End
else

if request.form("action")="delbook" or request.querystring("action")="delbook" then
if request.Form("id")="" AND request.querystring("id")="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须指定操作的对象！"
else
  if Not isInteger(request.form("id")) AND not isInteger(request.querystring("id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的留言id参数。"
  End if
End if
if founderr then
  Call diserror()
  response.End
End if
'删除留言信息
if request.form("id")="" then
   sql="select * from msg where m_id="&cint(request.querystring("id"))
else
   sql="select * from msg where m_id="&cint(request.Form("id"))
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.close
set rs=Nothing
  closedatabase
Response.write "<script language = 'javascript'>alert('成功删除此留言信息!');window.document.location.href='admin_book.asp';</script>"
response.end
'End if
End if

Call book_body()
closedatabase
End if
%>